with communautes_strings_test_class;
with configuration;
with communautes_strings;
procedure communautes_strings_test is
begin
   declare
      f : communautes_strings.communaute'Class := configuration;
   begin
      communautes_strings_test_class(f);
   end;
end communautes_strings_test;
